1,(RX4,JQ(19)),(STEM,JQ(20))

	DATA WIDTH/14.54/
	MOVE 3,2	;J12=(J4+1)/2-6
	AOJ 3,
	IDIVI 3,2		; (AC4 NOT USED YET)
	SUBI 3,6	; 3 IS J12
	MOVEM 3,.COMM.+=33
	JUMPGE 3,.+5	;IF(J12)J12=-((3-J4)/2)
	MOVE 3,2
	SUBI 3,3
	IDIVI 3,2
	MOVEM 3,.COMM.+=33	; J12  ;  FOR LEDGER LINES
	MOVN 4,ALF+=49		;RJW=R3-7.*RMINI
	FMPR 4,[7.0]
	FADR 4,.COMM.+4
	MOVEM 4,ALF+=56		; RJW
	MOVE 5,ALF+=49		;RZ=R3+20.*RMINI
	FMPR 5,[20.0]
	FADR 5,.COMM.+4		;  RZ
	MOVEM 5,ALF+=57		;  RZ
	JUMPL 3,N71		;IF(J12)GO TO 71
	MOVEI 6,=13		;JX=J12
	MOVEM 3,ALF+=58		;  JX   JRX=13
	JRST N711		;GO TO 711
N71:	MOVEI 6,2		;71	JX=-J12
	IMUL 6,3		;JRX=J12*2+3
	ADDI 6,3
	MOVNM 3,ALF+=58		; JX
N711:	MOVN 7,[18.0]		;711	RX=POS-18*RSTJ2+RST7*JRX
	FMPR 7,STF+10
	FLTR 6,6    		; FLOAT IT
	FMPR 6,ALF+=46
	FADR 6,7
	FADR 6,POSI+=9		;IF(J6)RZ=RZ+2*RMINI
	MOVEM 6,ALF+=52		;  RX IS 6
	SKIPL .COMM.+=27
	JRST N126
	MOVE 2,ALF+=49		; RMINI
	FMPR 2,[2.0]
	FADRM 2,ALF+=57		;  RZ
N126:	JSA 16,LINX		;126	CALL LINX(RJW,RX,RZ,RX)
	JUMP ALF+=56
	JUMP ALF+=52
	JUMP ALF+=57
	JUMP ALF+=52
	MOVN 2,PLTR		;IF(PLT.NE.-2)GO TO 1126
	CAIE 2,2
	JRST N1126
	MOVN 2,[1.0]		;RJY=RX-1./RHT
	FDVR 2,PLTR+1
	FADR 2,ALF+=52		;  RX
	MOVEM 2,ALF+=54		;  RJY
	JSA 16,LINX		;CALL LINX(RJW,RJY,RZ,RJY)
	JUMP ALF+=56
	JUMP ALF+=54
	JUMP ALF+=57
	JUMP ALF+=54
N1126:	MOVE 3,ALF+=58		;  JX   1126	IF(JX.EQ.1)GO TO 1122
	CAIN 3,1
	JRST N1122
	MOVE 2,STF+10		;RX=RX+RSTJ2*14.
	FMPR 2,[14.0]
	FADRM 2,ALF+=52		;  RX
	SOS ALF+=58		;JX=JX-1
	JRST N126		;GO TO 126
N1122:	SETOM .COMM.+=30	;1122	J9=-1  ;  IF J6≠0 NOTE IS FILLED IN